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SINCLAIR MIGRATION 1.01 
Anthony J. Oresteen 


The purpose of this software is to convert Sinclair 
2Х-81/Т5-1000 programs to ASCII files. The 2Х-81 stores all of 
it’s Basic files as TOKENIZED files and are unreadable by most 
other computers. Once the programs are converted to ASCII 
files, you can port the programs to any system that uses ASCII 
program files. 


Please note that this program will NOT translate Sinclair 
BASIC to any other BASIC language. You will have to do that 
yourself, It’s not hard but you should use an Editor like 
QUED/M to do global replace, search etc. 


Assumptions: 


1. It is assumed that you have an RS-232 adaptor for your 
2Х-81. Тһе Memotech RS-232 is the one I used. The ZX-81 modem 
software is written for the Memotech device. You may have to 
modify the software if you are using a different device. 


2. It is assumed that you have a communications program for the 
Macintosh and that you have hard-wired the ZX-81 directly to the 
Macintosh. I used Smartcom II and a home made cable. 


5. It is asumed that your ZX-81 program does NOT containe 2-80 
machine code embedded in a statement and that your program does 
not have a line numbers greater than 8999. 


4. If your ZX-81 program has a line number 118, it will be 
translated as line О after line 117. You will have to change 
the line number after the program has been converted. 


Using Sinclair Migration: 
1. Connect the ZX-81 to the Mac with a direct cable. 


2. You must add the following code to your 2Х-81 program. If 
you are trying to port a program that is un~listable оп the 
2Х--81 try this: 

а. Put the ZX-81 in FAST mode. 

В. TYPE RAND USR 836 

C. Start tape. Tape will load and give an error C 

D. Type LIST and there is the program! 
Enter the following code to the ZX-81 program: 

9000 THIS WILL MOVE PROGRAMS OUT VIA THE RS~—232 FORT 

9001 LET P$="00011010, 00001000" 

9002 RAND USR 10900 

9005 LET T$="" 

9004 FAST 

7005 FOR N=16509 ТО ( PEEK 16596+256» PEEK 16397) 


9006 IF РЕЕК М=118 THEN GOTO 9910 
9007 LET T$=T$+ STR PEEK N+", " 
2008 NEXT М 
9009 GOTO 9915 
9010 RAND USR 10895 
9011 LET Те: CHR 118 
9012 RAND USR 10895 
9015 LET Ta" 
9014 NEXT N 
9018 SLOW 
NOTE: This is for the Memotech RS-232 Module 111! 


3. Start е file capture on the Mac. This is the INPUT file. 
Remember What you save it ав. I use the following naming 
convention "program/TOKEN" so that I know it is а tokenized 
file. 


4. Enter RUN 9000 on the ZX-81. The program will read each byte 
and send it out the RS-232 pert. The Mac should receive data 
that looks something like this: 

0,20,2,0,249, 
0,30,14,0,253,65,13,16,231,50,126,134,0,0,0,0,17, 

O, SO, 12, 0, 233, 43,16, 35, 126, 131,96,0,0,0,17, 
0,55,12,0,233,59, 16, 35, 126,131,96,0,0,0,17, 

0,58, 13,0, 241,40,57, 20, 33, 28, 126, 134, 72,0,0,0, 

O, GO, 17,0, 233, 38,13, 16, 40, 57, 26, 29, 28, 126, 132,32,0,0,0,17, 
0,65, 17,0, 233,39, 13, 16, 40, 57, 26, 29,37, 126,133, 24,0,0,0,17, 
etc. 

(NOTE: Each number is a TOKENIZED value of ZX-81 BASIC) 
Sinclair Migration will convert these tokenized files to ASCII. 
The converted file will look like this: 

20 RAND 

30 DIM 2% (52) 

50 DIM F(7) 

oo DIM У(7) 

58 LET CT=50 

60 DIM аз (СТ, 10) 

65 DIM Ва (СТ, 19) 

etc. 

(Note again that this is pure Sinclair 2Х-81 Basic syntax) 


5. Once the ZX-81 program ends, finish saving the input file on 
the Mac. 


6. Run Sinclair Migration on the Мас. Select Open from under 
the File menu. Select the file you just downloaded from the 
1Х-81 (Input File/Tokenized). Enter the name you want for the 
ASCII file. The progam will default to add the extension of 
"ASCII" to the input file name. Select save and your file will 
be converted to ASCII. Note that the tokenized file is not 
changed; anew file is created with the ASCII text. 


7. You now have an ASCII file of your 2Х-81 Program. It is 
fairly easy to translate it to ZBasic syntax. This program was 


written in ZBasic and I reccomend it. 
Here's where to get the software mentioned: 


1. ZBasic (Cost approx $89.00) 
ZEDCOR, Inc 
4500 East Speedway, Suite 22 
Tucson, AZ 85712-5305 
tel: (800) 482-4567 


2. Qued/M (Cost approx $89.00) 
Paragon Concepts Inc 
4934 Sun Valley Road 
Del Mar, CA 92014 
tel: (619) 481-1477 


I have enclosed the ZBasic source code for those who might want 
to write a simmilar program for a MS-DOS or CP/M system. 


REM 

REM COPYRIGHT 1987 BY Anthony Oresteen 

REM All Rights Reserved 

REM 

REM Anthony J. Oresteen 

REM 452 Orion Rd 

REM BATAVIA, IL 60510 USA 

REM 312/879-5608 

REM 

REM Private, Non-Comercial Use Authorized. 
REM 

REM A Donation of $5.00 is asked if YOU keep 
REM this program . Please send your tax de- 
REM ductiable donation to: 

REM 

REM Holy Cross Parish 

REM 313 East Wilson ST 

REM Batavia, IL 60510 

REM USA 

REM 

REM This program may not be sold, rented, 

REM loaned, or packaged with any other software 
REM without the written permission of Anthony + 
КЕМ Oresteen. This includes "Public Domain" 

REM Software supply firms who sell "disks". 

REM 


REM THIS PROGRAM IS WRITTEN FOR THE ZBASIC COMPILER 4.0 
REM SET OPTIONS AS FOLLOWS: 

REM 

REM DEFAULT VARIABLE TYPE SINGLE PRECISION 

REM DEFAULT DATA TYPE ‘TEXT’ 

REM SPACE REQUIRED AFTER KEYWORD 

REM OPTIMIZE EXPRESIONS AS INTERGER 

REM ALL OTHER OPTIONS OFF (BOXES NOT SELECTED) 

REM 


КЕМ Last Changes 11 Мом 1987 -10:30 РМ 


КЕМ 

КЕМ ке STANDARD МАС SETUP +з 
CLS 

FLUSHEVENTS 


COORDINATE WINDOW 
DEFMOUSE=1 : CALL SHOWPEN : TEXT ,,,0 


WINDOW OFF 


APPLE MENU "“/About Sinclair" 


MENU 1, 0, 1, "File" 
MENU 1, 1, 1, "/Обреп" 

MENU 1, 2, 1, "/QQuit" 

MENU 1, 3, 1, "/TTransfer<>" 

MENU 1, 4, 1, "И Shutdown!" 

EDIT MENU 2 

КЕМ ------------------ OPENING WINDOW DISPLAY 


mease esate алые төгөн “ЕЕЕ‏ وچ 


WINDOW 1,"", (160,110)~-(352,202),-2 : TEXT 0,12,0,0 
"Sinclair Migration" 


PRINT% (30,16) 
PRINT% (22,35) 


"POINT 


1987 


ДР a 


lelg as FP Ly, 
буш, Pat 2d 2 20/6; Tere Б, same „а, 


н",(160,110) - (552,202) „2 : TEXT 0,12,0,0 
® PRINTZ (30,16) "Sinclair Migration" 
| PRINTZ (22,35) “POINT 1987 A. Oresteen” 
PRINT“ (27,55) "А11 Rights Reserved” 
PRINTA (45,75) “Release 1.01" 
REM 
REM HERE WE LOAD THE SINCLAIR TOKENS 
REM 
DIM 10 TOKENS (256) 
FOR N = 0 TO 255 
READ TOKENS (М) 
NEXT N 
LET ТОКЕМ (11) = CHR® (34) : REM PUTS QUOTES IN ARRAY; CAN'T DO 
IT WITH A READ STATEMENT! 
DELAY 1000 
WINDOW CLOSE i 
MENU ON : DIALOG ON : BREAK ОМ 
ON BREAK GOSUB "QUIT" 
ON MENU GOSUB "МЕМИСНОТСЕ" 
ON DIALOG GOSUB "“GETEVENT" 
REM жек НЕКЕ WE ARE WAITING FOR SOMETHING TO HAPPEN жжжзжееки 
“GLOBALPAUSE" 


REM 

Є) REM THIS IS THE MAIN EVENT LOOP. IT TRAPS АШ. EVENTS (DIALOG 
etc.) 
REM 
GOTO "GLOBALFAUSE" 
MENU OFF : BREAK OFF : DIALOG OFF 
"ЗЕТЕМЕМТ " 
WHAT = DIALOG (0) 
IF WHAT = 1 THEN GOSUB “BUTTON" 
RETURN 
КЕМ ж NOW WE BRANCH TO THE WINDOW WHERE THE EVENT TOOK FLACE ж 
"BUTTON" 
WHERE = WINDOW (0) 
IF WHERE = 5 THEN GOSUB “WSBUTTON" 
RETURN 
REM 
REM +з ЕМІ) OF EVENT LOOP ХЕНК 
REM 
REM HERE WE TRAP THE MENU SELECTIONS ! 
REM 
“MENUCHOICE" 
MENU 

@ LET LASTWIN = WINDOW (0) 

Mi=MENU (O): M2=MENU (1) 

IF Mi=255 THEN GOSUB "ABOUT" 

IF Mi = 1 THEN GOSUB "FILE" 

RETURN 

"PILE" 

IF M2= 1 THEN GOSUB "ОРЕМ" 

IF М2- 2 THEN GOSUB "QUIT" 

IF М2ш 3 THEN GOSUB "LAUNCH" 


ТЕ M2= 4 THEN GOSUB "CRASH" 


RETURN 
"ОРЕМ" 

REM --------- GET INPUT FILE ----------------- 

NAMES# = FILES® (1,"TEXT",,VOL%) : IF NAMES$ = "" THEN RETURN 
OPEN "І",1,МАМЕ8%, 1000, VOL% : 7% = NAMES$+". ASCII" 

REM ---------- GET OUTPUT FILE ---------------- 


МАМЕ2% = FILES$ (O, "Save ZX-81 Program as<>",Z%, VOL2%) 

IF МАМЕ2%-"" THEN CLOSE #1 : RETURN 

OPEN "0",2, МАМЕ2%, , VOL.2% 

КЕМ ------------- НЕКЕ WE CONVERT THE INPUT FILE ------- 
WINDOW 2, "Sinclair Migration", (20,50) ~ (492,200), 261 

TEXT 4,12,0,0 : LINECOUNT=1 

PRINT: PRINT "Converting Sinclair 2Х-81 Program: "; МАМЕВФ;" TO 
ASCII" 

PRINT : PRINT “Lines Converted: " : CURSOR=4 

"GETDATA" 

INPUT %1,7,5,0,У : LNUM= Т#256+5: LANGTH=U+256*V 

IF LNUM = 9000 THEN GOTO "END" 

TEMP$=STRS(LNUM) +" " : TEMP$=RIGHTS (TEMPS, LEN(TEMPS)—-1 ): REM 
REMOVES SIGN BYTE 

N=1 : NUM = © sPRINT #2, TEMPS ; 

FOR N = 1 TO LANGTH—1 

INPUT#1,XX : 

IF XX = 126 THEN NUM =1 


IF NUM = О THEN ТЕМРФ=ТОКЕМФ (XX) : PRINT #2, TEMPS; 
IF NUM =1 THEN INPUT#1,A,A,A,A,A : N= N+5 : NUM = 0 
NEXT N 


PRINT #2, СНКФ (13); 

PRINT Ж (120,57); LINECOUNT : LINECOUNT=LINECOUNT+1 
INPUT#1, ХХ 

GOTO "GETDATA" 

" ЕМО " 

CLOSE 1: CLOSE 2 : CURSOR=0 : PRINT : PRINT "РОМЕ!" : ВЕЕР 
DELAY 4000 : WINDOW CLOSE #2 


RETURN 

REM жеее Begin Quit Menu жекен 

"QUIT" 

КЕМ ---- HERE WE EXIT. SHOULD CLOSE & POST FILES FIRST! ---- 
END 

REM End of Quit Menu ------------------- 


КЕМ жен Begin Transfer MENU HHHH HE E E E E E E E E E кк 
"LAUNCH" 

LASTWIN = WINDOW (0) 

Сиегеп ве FILES! (1, "APPL", , VOL%) 


IF Current$ = "" THEN RETURN 

CLOSE 

RUN Current, VOL% 

RETURN 

КЕМ aa End of Transfer Menu ---------------------- 


КЕМ HHHH HK Begin Shutdown Merits HHH HH E E ЈЕ ЈЕ 26 E HE 36 36.36.3636 36 36 36 36 Зе + ¥ 
"CRASH" 
REM ------ SHOULD POST DATA TO FILES & CLOSE FIRST !!!!----- 


SHUTDOWN 


REM езен е тет End of Shutdown Menu nese see ee 
КЕМ жж The About Menu жек 
(2 "ABOUT" 


WINDOW #5, , (60,50)-(450,320),-2 : TEXT 6, 18, O, 
PRINT (60,20) "Sinclair ZX-81 Migration" 


TEXT О, 


12, 0, 


ЕКТМТА (100,40) "Version 1.01 {10 Nov 873" 
PRINTZ (100,60) "POINT 1987 Anthony Oresteen" 
РКІМТХ (100,80) "All Rights Reserved" 

FRINTZ (10,120) " Shareware fee $5.00" 

РКТМТА (10,140) " Please send your fee Бо: 
PRINTZ (40,165) " Holy Cross Parish" 

PRINT“ (40,185) " 313 East Wilson St" 

PRINT“ (40,205) " Batavia, IL 60510" 

PRINTS (40,225) " USA" 


TEXT 4,9, 


о, l 


PRINT“? (297,259) "2Вавіс 4.00" 
BUTTON #11,1, "Thanks! ", (285, 200) ~ (370,220) ,1 


RETURN 
“WSBUTTON" 
WINDOW CLOSE #5 
RETURN 
REM 
є КЕМ - END of About Menu - 
REM 
REM HERE ARE THE SINCLAIR TOKENS 
REM 
DATA и tt 3 “RND” 4 "Быр" j RND” 9 "RND" А "RND н 4 "мр" В "RND" 4 "RND" , "RND и Б “RND” 9 нен 
рата %,%, па ы мама в ‹", 10) Ма ">", „с, и-н 


DATA "+", 


и. u и и н н и и 11 ы и и n u n n нп ысты н и н н и и 
"و‎ нц нди, иш», "ве, 


“ҮРҮ "е, "он 


рата А,В, 


C D,E, FGH, I J Kakla M N OP R RSTU V Wy X,Y,Z 


DATA u RND и 4 “ INKE YS и 4 и ЕІ " А и н $ и и 4 н " 5 u " 4 и u Е at н А a8 и š н " ; 


и и п = 
3 


DATA " " 
и А и и н 
рата " " 
и 4 и и 4 и 
рата " " 


РАТА "+", 
DATA "о", 


н и н u u и и ы a ue пен и в " пи н a нез. ы" н a н "чн 
3 0 ي‎ А. ла и ОЈ БЗ АР 


и 


3 5 3 3 3 5 3 3 4 
п и 
поп ив B N пони нон N B н п п п нов ни инна пон 
з kd kd Ы 3 3 kd 
нов 
ни и и пон и нон нон топ ннен нп нп юни пи пн и 
4 3 4 3 a kd 4 3 3 3 


3 


а..." " if n н и н п и и н 
ДЫН 


E са 
ы е "2", нт "4", 3". "с", ae n °з”, по" a,b,c,d,¢, #,9,h, 


@ і, 3, К, 1, туп 
рата обрада hy Sy Colg май, Хууд, У", " АТ нәт тав “ы "> CODE ve 
VAL. н А t LEN u 
DATA н SIN n з н COS п 4 98 TAN n А а ASN в А ы ACS и 4 и АТМ и Е ae LN н 4 a“ 


ЕХР ", as 


INT " 


DATA u SQR н К u SGN в 4 и ABS s š и PEEK и 5 и USR н А n STRE н а и CHRE и 


А и NOT н 


рата ee, н OR и А u AND и 4 н fm n . и >= н 4 и <> и А и ТНЕМ и 5 и то и А и 
STEP "," LPRINT " 


рата 
CONT 
DATA 
LIST 
DATA 
SAVE 
DATA 


н 


LLIST "," STOP "," SLOW "," FAST "," NEW "," 
4 н DIM за 

REM "," FOR "," GOTO "," GOSUB "," INPUT "," 
А и LET н 

PAUSE "," NEXT "," POKE "," PRINT "," PLOT ", 
- " RAND " 


SCROLL "," 
LOAD " Е и 


" RUN н А и 


IF "," CLS "," UNPLOT "," CLEAR "," RETURN "," COPY " 


If you have any questions write to те fenclose а SASE}: 
Anthony J. Oresteen 
452 Orion Rd 
Batavia, IL 60510 


Месо“ ы 2222 T e 


